PC Gamer (Italian) 35/PC Gamer IT CD 35 2-2.iso/utility/ao10/ACTION.EXE/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1998-08-10 | 17KB | 557 lines

object MainForm: TMainForm
  Left = 165
  Top = 118
  Width = 600
  Height = 400
  Caption = 'ActionOutline'
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  ShowHint = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 289
    Top = 30
    Width = 3
    Height = 305
    Cursor = crHSplit
    Beveled = False
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 335
    Width = 592
    Height = 19
    Panels = <
      item
        Width = 120
      end
      item
        Width = 75
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 30
    Width = 289
    Height = 305
    RightClickSelect = True
    HideSelection = False
    Indent = 19
    OnEdited = TreeView1Edited
    OnChange = TreeView1Change
    Align = alLeft
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    TabOrder = 1
    OnClick = TreeView1Click
    OnDragOver = TreeView1DragOver
    OnStartDrag = TreeView1StartDrag
    OnMouseDown = TreeView1MouseDown
    OnMouseMove = TreeView1MouseMove
    OnMouseUp = TreeView1MouseUp
    OnDblClick = TreeView1DblClick
    OnKeyDown = TreeView1KeyDown
    PopupMenu = PopupMenu1
    ParentFont = False
  end
  object Memo1: TMemo
    Left = 292
    Top = 30
    Width = 300
    Height = 305
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    Lines.Strings = (
      'Memo1')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 2
    OnChange = Memo1Change
    OnKeyPress = Memo1KeyPress
  end
  object Toolbar1: TPanel
    Left = 0
    Top = 0
    Width = 592
    Height = 30
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 592
      Height = 14
      Align = alTop
      Shape = bsTopLine
    end
    object SpeedButton1: TSpeedButton
      Left = 1
      Top = 4
      Width = 24
      Height = 24
      Hint = 'Create a new outline'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888800000000000888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF
        0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF
        0888880FFFFFFFFF0888880FFFFFF0000888880FFFFFF0F08888880FFFFFF008
        8888880000000088888888888888888888888888888888888888}
      OnClick = NewBtnClick
    end
    object SpeedButton2: TSpeedButton
      Left = 26
      Top = 4
      Width = 24
      Height = 24
      Hint = 'Open an existing outline'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFF00000000000FFFFF003333333330FFFF0F03333333330FFF0BF033333333
        30FF0FBF03333333330F0BFBF0000000000F0FBFBFBFBF0FFFFF0BFBFBFBFB0F
        FFFF0FBF0000000FFFFFF000FFFFFFFF000FFFFFFFFFFFFFF00FFFFFFFFF0FFF
        0F0FFFFFFFFFF000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      OnClick = OpenBtnClick
    end
    object SaveBtn: TSpeedButton
      Left = 51
      Top = 4
      Width = 24
      Height = 24
      Hint = 'Save outline modifications'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00444444444444
        44444000000000000044033000000FF03044033000000FF03044033000000FF0
        3044033000000000304403333333333330440330000000033044030FFFFFFFF0
        3044030FFFFFFFF03044030FFFFFFFF03044030FFFFFFFF03044030FFFFFFFF0
        0044030FFFFFFFF0F04400000000000000444444444444444444}
      OnClick = SaveBtnClick
    end
    object UpBtn: TSpeedButton
      Left = 138
      Top = 4
      Width = 24
      Height = 24
      Hint = 'Move item up'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888800000888888888880666088
        8888888880666088888888888066608888888800006660000888888066666660
        8888888806666608888888888066608888888888880608888888888888808888
        8888888888888888888888888888888888888888888888888888}
      OnClick = UpBtnClick
    end
    object DownBtn: TSpeedButton
      Left = 163
      Top = 4
      Width = 24
      Height = 24
      Hint = 'Move item down'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888888888888888888088888888888888060888
        8888888880666088888888880666660888888880666666608888880000666000
        0888888880666088888888888066608888888888806660888888888880000088
        8888888888888888888888888888888888888888888888888888}
      OnClick = DownBtnClick
    end
    object LeftBtn: TSpeedButton
      Left = 194
      Top = 4
      Width = 24
      Height = 24
      Hint = 'Move item left'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888888088888888888888008888888888888060888
        8888888880660000088888880666666608888880666666660888888806666666
        0888888880660000088888888806088888888888888008888888888888880888
        8888888888888888888888888888888888888888888888888888}
      OnClick = LeftBtnClick
    end
    object RightBtn: TSpeedButton
      Left = 219
      Top = 4
      Width = 24
      Height = 24
      Hint = 'Move item right'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888888888888888888888880888888888888888008888888888888806088
        8888888000006608888888806666666088888880666666660888888066666660
        8888888000006608888888888880608888888888888008888888888888808888
        8888888888888888888888888888888888888888888888888888}
      OnClick = RightBtnClick
    end
    object SpeedButton3: TSpeedButton
      Left = 82
      Top = 4
      Width = 24
      Height = 24
      Hint = 'Add a sub-item to the current item'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888888888888888888888888888888888800000000000000080FF044444444
        44080FF044444F4444080FF044444FF444080FF04FFFFFFF44080FF04FFFFFFF
        44080FF044444FF444080FF044444F4444080FF0444444444408000000000000
        0008888888888888888888888888888888888888888888888888}
      OnClick = SpeedButton3Click
    end
    object AddSiblingBtn: TSpeedButton
      Left = 107
      Top = 4
      Width = 24
      Height = 24
      Hint = 'Add a sibling item to the current item'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        88888880000000000888888044444444088888804444444408888880444FF444
        0888888044FFFF44088888804FFFFFF408888880444FF44408888880444FF444
        08888880444FF44408888880444FF44408888880444444440888888000000000
        08888880FFFFFFFF08888880FFFFFFFF08888880000000000888}
      OnClick = AddSiblingBtnClick
    end
    object SpeedButton4: TSpeedButton
      Left = 251
      Top = 4
      Width = 24
      Height = 24
      Hint = 'Change item title'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00999999999999
        9999900000000000000990FFFFFFFFFFFF0990FFFFFF00F00F0990FF0000FF0F
        FF0990F00F00FF0FFF0990F00F00FF0FFF0990FF0000FF0FFF0990FFFF00FF0F
        FF0990FF000FFF0FFF0990FFFFFFFF0FFF0990FFFFFFFF0FFF0990FFFFFF00F0
        0F0990FFFFFFFFFFFF0990000000000000099999999999999999}
      OnClick = SpeedButton4Click
    end
    object SpeedButton5: TSpeedButton
      Left = 283
      Top = 4
      Width = 24
      Height = 24
      Hint = 'Show program information'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        888888887444447888888874444444447888874444444444478884444FFFFFF4
        44887444447FFF4444784444447FFF4444484444447FFF44444844444FFFFF44
        444844444444444444487444447FF7444478844444FFFF4444888744447FF744
        4788887444444444788888887444447888888888888888888888}
      OnClick = SpeedButton5Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 448
    Top = 280
    object File1: TMenuItem
      Caption = '&File'
      OnClick = File1Click
      object NewItem: TMenuItem
        Caption = '&New'
        Hint = 'Create a new outline'
        OnClick = NewItemClick
      end
      object OpenItem: TMenuItem
        Caption = '&Open...'
        Hint = 'Open an existing outline...'
        ShortCut = 16463
        OnClick = OpenItemClick
      end
      object Reopen1: TMenuItem
        Caption = '&Reopen'
        Hint = 'Reopen previously opened outline'
      end
      object SaveItem: TMenuItem
        Caption = '&Save'
        Hint = 'Save outline modifications'
        ShortCut = 16467
        OnClick = SaveItemClick
      end
      object SaveAsItem: TMenuItem
        Caption = 'Save &as...'
        Hint = 'Save outline under new name...'
        OnClick = SaveAsItemClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object ExitItem: TMenuItem
        Caption = 'E&xit'
        Hint = 'Exit the program'
        ShortCut = 32856
        OnClick = ExitItemClick
      end
    end
    object View1: TMenuItem
      Caption = '&Edit'
      object FindItem: TMenuItem
        Caption = '&Find...'
        Hint = 'Perform search by substring...'
        ShortCut = 16454
        OnClick = FindItemClick
      end
      object FindNextItem: TMenuItem
        Caption = 'Find &next'
        Hint = 'Repeat previous search'
        ShortCut = 114
        OnClick = FindNextItemClick
      end
    end
    object View2: TMenuItem
      Caption = '&View'
      object ToolItem: TMenuItem
        Caption = '&Toolbar'
        Hint = 'Show/hide toolbar'
        OnClick = ToolItemClick
      end
      object StatusItem: TMenuItem
        Caption = '&Status bar'
        Hint = 'Show/hide status bar'
        OnClick = StatusItemClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Options1: TMenuItem
        Caption = '&Options...'
        Hint = 'Open configuration dialog...'
        OnClick = Options1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Gettingstarted1: TMenuItem
        Caption = '&Getting started!'
        Hint = 'Show tutorial outline'
        OnClick = Gettingstarted1Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = '&About...'
        Hint = 'Show program information'
        ShortCut = 32841
        OnClick = About1Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'ao'
    Filter = 'Outline files (*.ao)|*.ao'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Left = 168
    Top = 192
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'ao'
    Filter = 'Outline files (*.ao)|*.ao'
    Options = [ofHideReadOnly, ofPathMustExist]
    Left = 176
    Top = 112
  end
  object FindDialog1: TFindDialog
    Options = [frDown, frHideMatchCase, frHideWholeWord, frHideUpDown]
    OnFind = FindDialog1Find
    Left = 224
    Top = 56
  end
  object ReopenManager1: TReopenManager
    ReopenItem = Reopen1
    NoItemsStr = '(no items)'
    OnReopen = ReopenManager1Reopen
    Left = 40
    Top = 256
  end
  object RxTrayIcon1: TRxTrayIcon
    Icon.Data = {<image000.ico>}
    PopupMenu = PopupMenu2
    OnClick = RxTrayIcon1Click
    OnDblClick = RxTrayIcon1DblClick
    Left = 48
    Top = 112
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    OnPopup = PopupMenu1Popup
    Left = 360
    Top = 128
    object Addsubitem1: TMenuItem
      Caption = '&Add sub-item...'
      Hint = 'Add a new sub-item to the current item...'
      OnClick = Addsubitem1Click
    end
    object AddSiblingItem: TMenuItem
      Caption = 'Add &sibling...'
      Hint = 'Add a sibling to the current item...'
      OnClick = AddSiblingItemClick
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object ChangeItem: TMenuItem
      Caption = '&Change...'
      Hint = 'Change the title of the current item...'
      OnClick = ChangeItemClick
    end
    object RunItem: TMenuItem
      Caption = '&Run'
      Default = True
      Hint = 'Run current item'
      OnClick = RunItemClick
    end
    object N01: TMenuItem
      Caption = '-'
    end
    object Move1: TMenuItem
      Caption = '&Move'
      object UpItem: TMenuItem
        Caption = '&Up'
        Hint = 'Move current item up'
        OnClick = UpItemClick
      end
      object DownItem: TMenuItem
        Caption = '&Down'
        Hint = 'Move current item down'
        OnClick = DownItemClick
      end
      object LeftItem: TMenuItem
        Caption = '&Left'
        Hint = 'Move current item left'
        OnClick = LeftItemClick
      end
      object RightItem: TMenuItem
        Caption = '&Right'
        Hint = 'Move current item right'
        OnClick = RightItemClick
      end
    end
    object DeleteItem: TMenuItem
      Caption = '&Delete...'
      Hint = 'Delete current item...'
      OnClick = DeleteItemClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object CutItem: TMenuItem
      Caption = 'C&ut'
      Hint = 'Cut current item to clipboard'
      OnClick = CutItemClick
    end
    object Copy1: TMenuItem
      Caption = 'C&opy'
      Hint = 'Copy current item to clipboard'
      OnClick = Copy1Click
    end
    object PasteItem: TMenuItem
      Caption = '&Paste as sub-item'
      Hint = 'Paste clipboard contents as a new sub-item to the current item'
      OnClick = PasteItemClick
    end
    object PasteSiblingItem: TMenuItem
      Caption = 'Pas&te as sibling'
      Hint = 'Paste clipboard contents as a sibling item'
      OnClick = PasteSiblingItemClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object MakeLinkItem: TMenuItem
      Caption = 'Make a &link'
      Hint = 'Make current item a link'
      object URL1: TMenuItem
        Caption = '&URL'
        Hint = 'Make current item an URL link'
        OnClick = URL1Click
      end
      object Email1: TMenuItem
        Caption = '&E-mail'
        Hint = 'Make current item an E-mail link'
        OnClick = Email1Click
      end
      object File2: TMenuItem
        Caption = '&Document'
        Hint = 'Make current item a document link'
        OnClick = File2Click
      end
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 448
    Top = 80
    object Open1: TMenuItem
      Caption = 'Open'
      Default = True
      OnClick = Open1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Exit1: TMenuItem
      Caption = 'Exit'
      OnClick = Exit1Click
    end
  end
  object GpAlt1: TGpAlt
    Left = 112
    Top = 80
  end
end